home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / gmpvb2.exe / WORDDEMO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-12-07  |  5.9 KB  |  163 lines
  1. Form1
  2. Word DDE Demo
  3. Form1
  4. WinwordState
  5. !The current winword directory is 
  6. Command3
  7. Command3
  8. Command4
  9. Command4
  10. DocID
  11. !The current winword directory is 
  12. Frame1
  13. System State
  14. Total memory
  15. Available memory
  16. f(I don't know what these numbers mean, but they are the result of the Winword memory reading function)
  17. Available diskspace
  18. Label2
  19. )The following windows are open in Winword
  20. List1
  21. Label1
  22. GClick here to make the window selected above the current Winword window
  23. ChanNum
  24. DDE Chan No:
  25. Command5
  26.     &See More
  27. Command2
  28. &Update
  29. Command1
  30. &Quit
  31. Form_Click
  32. Form_Unload
  33. Cancel
  34. Close_Link
  35. @    Form_Load
  36. IsAppLoaded-
  37. FALSE
  38. DirsBox
  39. DirName
  40. PathSpec
  41. Caption
  42. Get_Open_Docs
  43. OpenDocs
  44. Get_Info<
  45. Label13
  46. Visible
  47.     ListCount
  48. List1
  49. Directory_Click
  50. Index_
  51. Document_Click&
  52.     Directory
  53. Document
  54. ThisProg
  55. DDEForm
  56. Command1_Click
  57. Label1_Clickl
  58. NumDocs>
  59. Label2
  60. ThenLabel2U
  61. GetInfo<
  62. WinwordState
  63. chan1D
  64. messy
  65. Winword_State
  66. NORMAL
  67.     MINIMIZED
  68.     MAXIMIZED
  69. WindowState
  70. Execute
  71. tempnoJ
  72. form1
  73. ChanNum
  74.     ListIndex
  75. DocID
  76. temp2z
  77. Update3
  78. Command2_Click
  79. Form_GotFocus
  80. Screen
  81. MousePointer
  82.     HOURGLASS
  83. DEFAULT
  84. Command3
  85. Command4h
  86. Command3_Click
  87. Command4_Click
  88. Update_WordState
  89. Update_Winword_State
  90. Window_State
  91. ChanNum_Click
  92. DocID_Click
  93. Command5_Click
  94. Form2
  95. MODAL
  96. Form_KeyPress
  97. KeyAscii
  98. NumWins
  99. Form_Load
  100. MSWord
  101. Please run Winword before running this program
  102. WordDemo
  103. Command1_Click
  104. Label1_Click
  105. Please select an item from the list of open windows first"
  106. str$(DocMaximize())"
  107. WindowName$()"
  108. Microsoft Word - "
  109. This step is necessary to avoid bizarre screen results in winwordw
  110. Microsoft Word
  111. [Window"
  112. ][If Not DocMaximize() Then DocMaximize]
  113. WindowName$()"
  114. The current Winword window is 
  115. Word DDE Demo"
  116. Update
  117. List open documents in List1 listbox
  118. There is no current document in winword"
  119. Show dummy listbox if there are no open winword documents
  120. Str$(Window())
  121. Find and show current winword directory
  122. WindowName$(
  123. The current Winword window is 
  124. The following window is open in Winword"
  125. The following"
  126.  windows are open in Winword
  127. Files$("
  128. Find and show current winword directory
  129. The current Winword directory is "
  130. AppInfo$(9)"
  131. AppInfo$(10)
  132. AppInfo$(15)
  133. Command2_Click
  134. Form_Click
  135. Form_GotFocus
  136. Command3_Click
  137. Word DDE Demo"
  138. Command4_Click
  139. Word DDE Demo"
  140. Update_Winword_State
  141. AppInfo$(2)"
  142. You are running MS Winword Version "
  143.    the Winword window is in the normal state
  144. Ma&x Word"
  145. [If Not AppMaximize() Then AppMaximize]"
  146. &Min Word"
  147. [If Not AppMinimize() Then AppMinimize]"
  148.    Winword is minimized"
  149. Ma&x Word"
  150. [If Not AppMaximize() Then AppMaximize]"
  151. &Norm Word
  152. [AppRestore][AppRestore]
  153.    Winword is maximized"
  154. &Norm Word
  155. [AppRestore]
  156. &Min Word"
  157. [If Not AppMinimize() Then AppMinimize]"
  158. Command5_Click
  159. Str$(CountWindows())
  160. Get number of items on winword window list
  161. Please open a document in winword before selecting this function
  162. No open windowso
  163.